Shareware Grab Bag/Shareware Grab Bag.iso/090/pcpursut.arc/PCPUR.FMT

Text File | 1987-01-07 | 625 b | 20 lines

@  2, 70  SAY RECNO()
@  2, 20  SAY "BBS Name"
@  2, 33  GET  PCPUR->NAME
@  5, 25  SAY "Phone # ("
@  5, 34  GET  PCPUR->ACODE
@  5, 37  SAY ")"
@  5, 39  GET  PCPUR->PHONE
@  6,  4  GET  PCPUR->PHONE  PICTURE "99999999"
@  8,  8  SAY "Note 1:"
@  8, 16  GET  PCPUR->NOTE1
@  8, 42  SAY "Note 2:"
@  8, 50  GET  PCPUR->NOTE2
@ 12,  5  SAY "ESC = Exit           ^Y = Delete Field         ^U = Delete Record!"
@ 14, 15  SAY "PgUp = Previous Record    PgDwn = Next Record"
@  1,  3  TO 10, 74    DOUBLE
@  3,  4  TO  3, 73    DOUBLE
@  6,  4  TO  6, 73    DOUBLE
@ 11,  3  TO 15, 74
@ 13,  4  TO 13, 73